home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d23456 / TB97.ZIP / Demo (Delphi) / Demo1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1998-08-11  |  5.3 KB  |  189 lines
  1. unit Demo1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, SysUtils, Messages, Classes, Graphics, Controls,
  7.   Forms, StdCtrls, ExtCtrls, ComCtrls, Menus, Dialogs,
  8.   TB97, TB97Tlbr, TB97Tlwn, TB97Ctls;
  9.  
  10. type
  11.   TDemoForm = class(TForm)
  12.     Memo: TMemo;
  13.     ToolbarPopupMenu: TPopupMenu;
  14.     TopDock: TDock97;
  15.     MainMenu: TMainMenu;
  16.     FMenu: TMenuItem;
  17.     VMenu: TMenuItem;
  18.     EditToolbar: TToolbar97;
  19.     BottomDock: TDock97;
  20.     StatusBar: TStatusBar;
  21.     LeftButton: TToolbarButton97;
  22.     CenterButton: TToolbarButton97;
  23.     RightButton: TToolbarButton97;
  24.     FontCombo: TComboBox;
  25.     VToolbars: TMenuItem;
  26.     VTMain: TMenuItem;
  27.     VTEdit: TMenuItem;
  28.     TPMain: TMenuItem;
  29.     TPEdit: TMenuItem;
  30.     FExit: TMenuItem;
  31.     LeftDock: TDock97;
  32.     RightDock: TDock97;
  33.     MainToolbar: TToolbar97;
  34.     NewButton: TToolbarButton97;
  35.     OpenButton: TToolbarButton97;
  36.     SaveButton: TToolbarButton97;
  37.     PrintButton: TToolbarButton97;
  38.     PrintPreviewButton: TToolbarButton97;
  39.     CutButton: TToolbarButton97;
  40.     CopyButton: TToolbarButton97;
  41.     PasteButton: TToolbarButton97;
  42.     FontButton: TToolbarButton97;
  43.     VStatusBar: TMenuItem;
  44.     MainSep1: TToolbarSep97;
  45.     MainSep2: TToolbarSep97;
  46.     EditSep1: TToolbarSep97;
  47.     SampleToolbar: TToolbar97;
  48.     SampleEdit1: TEdit97;
  49.     SampleEdit2: TEdit97;
  50.     TPSample: TMenuItem;
  51.     VTSample: TMenuItem;
  52.     SampleSep1: TToolbarSep97;
  53.     DropdownButton: TToolbarButton97;
  54.     DropPopupMenu: TPopupMenu;
  55.     Sample1: TMenuItem;
  56.     dropdown1: TMenuItem;
  57.     menu1: TMenuItem;
  58.     UndoButton: TToolbarButton97;
  59.     MainSep3: TToolbarSep97;
  60.     RedoButton: TToolbarButton97;
  61.     SampleToolWindow: TToolWindow97;
  62.     Panel1: TPanel;
  63.     AddButton: TButton;
  64.     DeleteButton: TButton;
  65.     ListBox: TListBox;
  66.     SampleSep2: TToolbarSep97;
  67.     ToolWinButton: TToolbarButton97;
  68.     procedure FExitClick(Sender: TObject);
  69.     procedure VTMainClick(Sender: TObject);
  70.     procedure VTEditClick(Sender: TObject);
  71.     procedure FormCreate(Sender: TObject);
  72.     procedure FontButtonClick(Sender: TObject);
  73.     procedure VStatusBarClick(Sender: TObject);
  74.     procedure VMenuClick(Sender: TObject);
  75.     procedure VTSampleClick(Sender: TObject);
  76.     procedure ToolbarPopupMenuPopup(Sender: TObject);
  77.     procedure AddButtonClick(Sender: TObject);
  78.     procedure ListBoxClick(Sender: TObject);
  79.     procedure DeleteButtonClick(Sender: TObject);
  80.     procedure SampleToolWindowVisibleChanged(Sender: TObject);
  81.     procedure ToolWinButtonClick(Sender: TObject);
  82.   private
  83.     { Private declarations }
  84.   public
  85.     { Public declarations }
  86.   end;
  87.  
  88. var
  89.   DemoForm: TDemoForm;
  90.  
  91. implementation
  92.  
  93. {$R *.DFM}
  94.  
  95. procedure TDemoForm.FormCreate(Sender: TObject);
  96. begin
  97.   Memo.WordWrap := True;
  98.  
  99.   { Use the SetSlaveControl method of a TToolbar97 to configure a separate
  100.     top/bottom docked and left/right docked version of a control.
  101.     Please see the Toolbar97 documentation for more info on slave controls.
  102.  
  103.     The line below tells it that FontCombo is the top/bottom docked version,
  104.     and FontButton is the left/right docked version. }
  105.   EditToolbar.SetSlaveControl (FontCombo, FontButton);
  106. end;
  107.  
  108. procedure TDemoForm.FExitClick(Sender: TObject);
  109. begin
  110.   Close;
  111. end;
  112.  
  113. procedure TDemoForm.ToolbarPopupMenuPopup(Sender: TObject);
  114. begin
  115.   TPMain.Checked := MainToolbar.Visible;
  116.   TPEdit.Checked := EditToolbar.Visible;
  117.   TPSample.Checked := SampleToolbar.Visible;
  118. end;
  119.  
  120. procedure TDemoForm.VMenuClick(Sender: TObject);
  121. begin
  122.   VStatusBar.Checked := StatusBar.Visible;
  123.   VTMain.Checked := MainToolbar.Visible;
  124.   VTEdit.Checked := EditToolbar.Visible;
  125.   VTSample.Checked := SampleToolbar.Visible;
  126. end;
  127.  
  128. procedure TDemoForm.VTMainClick(Sender: TObject);
  129. begin
  130.   MainToolbar.Visible := not MainToolbar.Visible;
  131. end;
  132. procedure TDemoForm.VTEditClick(Sender: TObject);
  133. begin
  134.   EditToolbar.Visible := not EditToolbar.Visible;
  135. end;
  136. procedure TDemoForm.VTSampleClick(Sender: TObject);
  137. begin
  138.   SampleToolbar.Visible := not SampleToolbar.Visible;
  139. end;
  140.  
  141. procedure TDemoForm.VStatusBarClick(Sender: TObject);
  142. begin
  143.   { Force the StatusBar to always be at the bottom of the form. Without this
  144.     line of code, the status bar sometimes may appear above the bottom dock.
  145.     This is not a bug in Toolbar97, but rather is due to the design of the
  146.     VCL's alignment system. }
  147.   StatusBar.Top := ClientHeight;
  148.  
  149.   { Toggle the status bar's visibility }
  150.   StatusBar.Visible := not StatusBar.Visible;
  151. end;
  152.  
  153. procedure TDemoForm.FontButtonClick(Sender: TObject);
  154. begin
  155.   ShowMessage ('A font dialog could come up here.');
  156. end;
  157.  
  158. procedure TDemoForm.ToolWinButtonClick(Sender: TObject);
  159. begin
  160.   SampleToolWindow.Visible := ToolWinButton.Down;
  161. end;
  162.  
  163. procedure TDemoForm.SampleToolWindowVisibleChanged(Sender: TObject);
  164. begin
  165.   ToolWinButton.Down := SampleToolWindow.Visible;
  166. end;
  167.  
  168. procedure TDemoForm.ListBoxClick(Sender: TObject);
  169. begin
  170.   DeleteButton.Enabled := ListBox.ItemIndex <> -1;
  171. end;
  172.  
  173. procedure TDemoForm.AddButtonClick(Sender: TObject);
  174. begin
  175.   ListBox.Items.Add (IntToStr(Random(10000)));
  176. end;
  177.  
  178. procedure TDemoForm.DeleteButtonClick(Sender: TObject);
  179. var
  180.   SaveItemIndex: Integer;
  181. begin
  182.   SaveItemIndex := ListBox.ItemIndex;
  183.   ListBox.Items.Delete (ListBox.ItemIndex);
  184.   ListBox.ItemIndex := SaveItemIndex;
  185.   DeleteButton.Enabled := ListBox.ItemIndex <> -1;
  186. end;
  187.  
  188. end.
  189.